
(defvar text-mode-syntax-table nil "Syntax table used while in text mode.")

(defvar text-mode-abbrev-table nil "Abbrev table used while in text mode.")

(if (null text-mode-syntax-table) (let ((st (syntax-table))) (unwind-protect (progn (setq text-mode-syntax-table (make-syntax-table)) (set-syntax-table text-mode-syntax-table) (modify-syntax-entry 34 "    ") (modify-syntax-entry 92 "    ") (modify-syntax-entry 91 "(]  ") (modify-syntax-entry 93 ")[  ") (modify-syntax-entry 123 "(}  ") (modify-syntax-entry 125 "){  ") (modify-syntax-entry 39 "w   ")) (set-syntax-table st))))

(defvar text-mode-map nil)

(if (not text-mode-map) (progn (setq text-mode-map (make-sparse-keymap)) (define-key text-mode-map "	" (quote tab-to-tab-stop)) (define-key text-mode-map "s" (quote center-line)) (define-key text-mode-map "S" (quote center-paragraph))))

(defun text-mode nil "\
Major mode for editing text intended for humans to read.
Tab is tab-to-tab-stop.  (Set tab stops with edit-tab-stops.)
Meta-s is center-line.  Meta-S is center-paragraph.

Turning on text-mode calls the value of the variable text-mode-hook,
if that value is non-nil." (interactive) (byte-code "È� ��!�ʉ�ˉ���\"����!���!�. �. �!�" [text-mode-map mode-name major-mode nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table text-mode-hook kill-all-local-variables use-local-map "Text" text-mode define-abbrev-table set-syntax-table boundp funcall] 12))

(defvar indented-text-mode-map nil)

(defun indented-text-mode nil "\
Major mode for editing indented text intended for humans to read.
Tab runs indent-relative, indent under previous line.
Meta-s is center-line.  Meta-S is center-paragraph.

Turning on indented-text-mode calls the value of the variable text-mode-hook,
if that value is non-nil." (interactive) (byte-code "��� ��!���	\"����!�?�4 � �����#����#����#�5 ����!�щ��!�׉�؉���!�\\ 	�\\ �	!�" [text-mode-map nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table indented-text-mode-map indent-line-function mode-name major-mode text-mode-hook kill-all-local-variables use-local-map define-abbrev-table set-syntax-table make-keymap define-key "	" indent-relative "s" center-line "S" center-paragraph make-local-variable "Indented Text" indented-text-mode boundp funcall] 22))

(defun center-paragraph nil "\
Center each line in the paragraph at or after dot.
See center-line for more info." (interactive) (byte-code "���� �n� ��!�`� ��`\"))�" [end nil forward-paragraph newline 1 backward-paragraph center-region] 10))

(defun center-region (from to) "\
Center each line starting in the region.
See center-line for more info." (interactive "r") (byte-code "È	V� 	
�)� È�b�`	W�) � ���!�� )�" [from to tem nil center-line forward-line 1] 10))

(defun center-line nil "\
Center the line dot is on.
This means adjusting its indentation to match
the distance between the end of the text and fill-column." (interactive) (byte-code "È��� �� �� �� �i��� �	��
	#�\"\\j))�" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space end-of-line / \- 2] 12))
